home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HamCall (October 1991)
/
HamCall (Whitehall Publishing)(1991).bin
/
bcast
/
bcstcble
/
parallel.bas
< prev
next >
Wrap
BASIC Source File
|
1990-10-14
|
1KB
|
30 lines
10 Print "Program to determine parallel resistance"
20 Print "Enter values in OHMS only with no commas."
30 INPUT "Value of original resistor";R
40 INPUT "Value of effective resistance desired ";RE
50 IF RE >= R THEN GOTO 180
60 RX=1/(1/RE-1/R)
70 DATA 1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2
71 DATA 10,12,15,18,22,27,33,39,47,56,68,82
72 DATA 100,120,150,180,220,270,330,390,470,560,680,820
73 DATA 1000,1200,1500,1800,2200,2700,3300,3900,4700,5600,6800,8200
74 DATA 10000,12000,15000,18000,22000,27000,33000,47000,56000,68000,82000
75 DATA 680000,820000,1000000,1200000,1500000,1800000,2200000,2700000
76 DATA 3300000,4700000,5600000,6800000,8200000
80 FOR X=1 TO 84
90 READ F
100 IF RX*.9 <= F THEN Y=F:GOTO 120
110 NEXT X
120 PRINT"Use "Y" ohm resistor in parallel with original "R" ohm"
125 PRINT"resistor for an effective resistance of "RE" ohms."
130 Q=1/(1/R+1/Y)
140 E=(Q/RE*100)-100
150 E=INT(E*10+.5)/10
160 PRINT"Error is "E"%."
170 end
180 Print"Effective value of 2 parallel resistors is often less than"
185 PRINT"then value of either."
190 PRINT"Chosen value for effective resistance must be less than the"
195 PRINT"value of the original resistor."
200 PRINT:GOTO 30